var c b;
%varexo w;
parameters r beta w;
beta = 0.97;
r = 0.02;
w = 10;

model;
c(+1) = beta*(1+r)*c;
b=(1+r)*b(-1) + w -beta*(1+r)*c;
end;

initval;
c = 11;
b = 0;
end;
resid;
% endval;
% c = 8.3;
% b = 0;
% end;
% 
% simul(periods = 100);
% rplot c;
% rplot b;